object FileCtrls: TFileCtrls
  Left = 56
  Top = 88
  HelpContext = 706
  ActiveControl = FileEdit
  BorderStyle = bsDialog
  Caption = 'YEN� F�YAT DOSYASINDAN F�YATLARI AKTARMA'
  ClientHeight = 299
  ClientWidth = 498
  Color = clSilver
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 3
    Top = -29
    Width = 493
    Height = 326
    Style = bsRaised
  end
  object PathLabel: TLabel
    Left = 202
    Top = 96
    Width = 46
    Height = 13
    Caption = 'C:\ecz8'
  end
  object Label2: TLabel
    Left = 8
    Top = 74
    Width = 62
    Height = 13
    Caption = 'Dosya &Ad�:'
    FocusControl = FileEdit
  end
  object Label1: TLabel
    Left = 8
    Top = 216
    Width = 137
    Height = 13
    Caption = 'Listelenecek Dosya &Tipi'
    FocusControl = FilterComboBox1
  end
  object Label3: TLabel
    Left = 202
    Top = 76
    Width = 47
    Height = 13
    Caption = '&Dizinler:'
    FocusControl = DirectoryListBox1
  end
  object Label4: TLabel
    Left = 201
    Top = 216
    Width = 55
    Height = 13
    Caption = '&S�r�c�ler'
    FocusControl = DriveComboBox1
  end
  object Label5: TLabel
    Left = 8
    Top = 263
    Width = 363
    Height = 13
    Caption = 
      'Fiyat Aktar ��leminden �nce �r�nle ilgili b�l�mleri l�tfen kapat' +
      '�n.'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 8
    Top = 278
    Width = 284
    Height = 13
    Caption = 
      '�la� fiyatlar�ndaki yaln��l�klar�ndan firmam�z sorumlu tutulamaz' +
      '.'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 387
    Top = 257
    Width = 36
    Height = 13
    Caption = '�lerleme'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 210
    Top = 56
    Width = 284
    Height = 13
    Caption = 'L�TFEN �NCE F1 TU�UNA BASIP YARDIM ALIN'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object FileListBox1: TFileListBox
    Left = 8
    Top = 115
    Width = 175
    Height = 100
    FileEdit = FileEdit
    FileType = [ftArchive, ftNormal]
    IntegralHeight = True
    ItemHeight = 16
    Mask = 'yenifyt.db'
    ShowGlyphs = True
    TabOrder = 6
    OnDblClick = FileListBox1DblClick
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 201
    Top = 115
    Width = 175
    Height = 100
    DirLabel = PathLabel
    FileList = FileListBox1
    IntegralHeight = True
    ItemHeight = 16
    TabOrder = 7
  end
  object DriveComboBox1: TDriveComboBox
    Left = 201
    Top = 232
    Width = 175
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 9
  end
  object FilterComboBox1: TFilterComboBox
    Left = 8
    Top = 232
    Width = 175
    Height = 21
    FileList = FileListBox1
    Filter = 
      'yenifyt.db|yenifyt.db|Paradox Dosyalar� (*.db)|*.DB|T�m Dosyalar' +
      '(*.*)|*.*'
    TabOrder = 8
  end
  object FileEdit: TEdit
    Left = 8
    Top = 90
    Width = 175
    Height = 21
    TabOrder = 5
    Text = 'yenifyt.db'
    OnKeyPress = FileEditKeyPress
  end
  object BtnFIYAKT: TBitBtn
    Left = 388
    Top = 115
    Width = 99
    Height = 27
    Caption = '&Fiyat Aktar'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = BtnFIYAKTClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
      FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
      FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
      FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
      0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
      9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
      9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
      99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
      93337777FF777777733370000000073333333777777773333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 388
    Top = 224
    Width = 99
    Height = 27
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    Kind = bkClose
  end
  object BtnFYTGOR: TBitBtn
    Left = 388
    Top = 151
    Width = 99
    Height = 27
    Caption = 'Fiyatlar� &G�r '
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = BtnFYTGORClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555500000000
      0555555F7777777775F55500FFFFFFFFF0555577F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FFFFFFFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FF777FFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FF7F777FF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FF77F7FFF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FFFFFFFFF05557F7FF5F5F5F57F550F00F0F0F0F
      005557F77F7F7F7F77555055070707070555575F7F7F7F7F7F55550507070707
      05555575757575757555555050505050555555575757575755550000}
    NumGlyphs = 2
  end
  object BtnMODEM: TBitBtn
    Left = 8
    Top = 3
    Width = 199
    Height = 29
    Caption = '&BBS'#39'ten Fiyat Dosyas�n� Al '
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = BtnMODEMClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003B3000000000
      003B37F77777777777F73BB09111111110BB3777F3F3F3F3F777311098080808
      10B33777F7373737377313309999999910337F373F3F3F3F3733133309808089
      03337F3373737373733313333099999033337FFFF7FFFFF7FFFFB011B0000000
      BBBB7777777777777777B01110BBBBB0BBBB77F37777777777773011108BB333
      333337F337377F3FFFF33099111BB3010033373F33777F77773F331999100101
      11033373FFF77773337F33300099991999033337773FFFF33373333BB7100199
      113333377377773FF7F333BB333BB7011B33337733377F7777FF3BB3333BB333
      3BB3377333377F33377FBB33333BB33333BB77333337733333770000}
    NumGlyphs = 2
  end
  object BitBtnInternet: TBitBtn
    Left = 8
    Top = 41
    Width = 199
    Height = 29
    Caption = '�nternet'#39'ten Fiyat Dosyas�n� &Al'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = BtnMODEMClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444
      5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4
      335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4
      C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4
      CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C
      C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333
      CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC
      5555555775FFFF77555555555C4CCC55555555555777775555550000}
    NumGlyphs = 2
  end
  object ProgressBar1: TProgressBar
    Left = 387
    Top = 272
    Width = 99
    Height = 16
    Min = 0
    Max = 100
    Step = 5
    TabOrder = 10
  end
  object BtnFARK: TBitBtn
    Left = 388
    Top = 188
    Width = 99
    Height = 27
    Caption = 'Fark Toplam�'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 11
    OnClick = BtnFARKClick
    NumGlyphs = 2
  end
  object RadioGrFYT: TRadioGroup
    Left = 212
    Top = 5
    Width = 278
    Height = 47
    Caption = 'Aktarma S�ras�nda Dikkat Edilecek Kriter'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemIndex = 0
    Items.Strings = (
      '�.Kart�ndaki fyt.trhleri,yenifyt.db'#39'den eski ise aktar'
      'Birebir yeniyt.db'#39'deki fiyat ve trh.leri aktar')
    ParentFont = False
    TabOrder = 12
  end
  object EskiFytUTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'URFAYAR.DB'
    Left = 460
    Top = 69
    object EskiFytUTabILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object EskiFytUTabFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object EskiFytUTabFITARIH: TDateTimeField
      FieldName = 'FITARIH'
    end
  end
  object YeniFiyaTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'YENIFYT.DB'
    Left = 386
    Top = 72
    object YeniFiyaTabILACKOD: TStringField
      FieldName = 'ILACKOD'
      Size = 13
    end
    object YeniFiyaTabILACAD: TStringField
      FieldName = 'ILACAD'
      Size = 36
    end
    object YeniFiyaTabFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object YeniFiyaTabFITARIH: TDateField
      FieldName = 'FITARIH'
    end
  end
  object UrunlerTab: TTable
    DatabaseName = 'ECZ'
    IndexName = 'ILACADI'
    TableName = 'URUN.DB'
    UpdateMode = upWhereChanged
    Left = 431
    Top = 32
    object UrunlerTabILACKOD: TStringField
      FieldName = 'ILACKOD'
      Size = 13
    end
    object UrunlerTabILACAD: TStringField
      FieldName = 'ILACAD'
      Size = 36
    end
    object UrunlerTabILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object UrunlerTabFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object UrunlerTabFIYATARIH: TDateField
      FieldName = 'FIYATARIH'
    end
  end
  object BatchMove1: TBatchMove
    Destination = YeniFiyaTab
    Mappings.Strings = (
      'ILACAD=ILACAD')
    Mode = batDelete
    Source = UrunlerTab
    Left = 460
    Top = 32
  end
end